home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / amicad / arexx_english / savepalette.amicad < prev    next >
Text File  |  1999-12-06  |  793b  |  34 lines
  1. /* Save the current palette in a file */
  2. /* The file can be loaded using the menu Preferences/Configuration/Load */
  3. /* $VER: 1.01e (© R.Florac, Chez Corbin, 9 août 1998) */
  4.  
  5. options results
  6.  
  7. signal on error
  8. signal on syntax
  9.  
  10. 'REQFILE("Name of the destination file?", "")'; fichier=result
  11. if fichier ~="" then do
  12.     if open(file, fichier, 'W') then do
  13.     call writeln(file, "AmiCADPrefs 1.1")
  14.     call writeln(file, "[Palette]")
  15.     do color=0 to 15
  16.         c="Color"||color||"="
  17.         'GETCOLOR('color')'; c=c||result
  18.         call writeln(file,c)
  19.     end
  20.     close(file)
  21.     end
  22. end
  23.  
  24. exit
  25.  
  26. syntax:
  27. erreur=RC
  28. 'MESSAGE("Script SavePalette.AmiCAD"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  29. exit
  30.  
  31. error:
  32. 'MESSAGE("Script SavePalette.AmiCAD"+CHR(10)+"Error in line 'SIGL'")'
  33. exit
  34.